 |
<% if admin_notice<>"no" then %>
<% '------------------------ 공지사항 부분 -----------------------------------------
notice_SQL = "SELECT * FROM inno_notice where tb='"&tb&"' order by num DESC"
Set notice_rs = Server.CreateObject("ADODB.Recordset")
notice_rs.PageSize = notice_num
notice_rs.Open notice_SQL,db,1
if not (notice_rs.BOF or notice_rs.EOF) then
%>
<%
m=1
Do until notice_rs.EOF or m>notice_rs.pagesize
id=notice_rs("id")
name=notice_rs("name")
email=notice_rs("email")
url=notice_rs("url")
title=notice_rs("title")
tag=notice_rs("tag")
write_diff=notice_rs("writeday")
writeday=left(notice_rs("writeday"),8)
visit=notice_rs("visit")
content=notice_rs("content")
num=notice_rs("num")
filename=notice_rs("filename")
if filename="none" then
filename=""
end if
if email="none" then
email=""
end if
if num=0 then
num=""
end if
if left(now,2)="20" then
nowday=mid(now,3)
else
nowday=now
end if
if tag="tag_ok" then
title=CheckWord(title)
if Len(title) > 38 then
title=mid(title,1,39)&".."
end if
name=CheckWord(name)
If Len(name) > 15 Then
name = Mid(name,1,16) & ".."
End If
else
if Len(title) > 20 then
title=mid(title,1,21)&".."
end if
title=replace(title,""","'")
If Len(name) > 4 Then
name = Mid(name,1,5) & ".."
End If
name=replace(name,""","'")
end if
if search<>"" then
if st = "on" then
title = replace(title,search,""&search&"")
end if
if sn = "on" then
name = replace(name,search,""&search&"")
end if
end if
%>
| 공지 |
<% if filename="" then %><% if DateDiff("d",write_diff,nowday) < newimg then %> <% else %> <% end if %><% else %><% if DateDiff("d",write_diff,nowday) < newimg then %> <% else %> <% end if %><% end if %> <%=title%> |
<% if email<>"" then %><% if admin_smtp<>"yes" then %><% else %><% if request("mode")="new" then %>&mode=new<% end if %><% if search<>"" then %>&search=<%=search%>&st=<%=st%>&sc=<%=sc%>&sn=<%=sn%><% end if %>"><% end if %><%=name%><% else %><%=name%><% end if %> |
<%=writeday%> |
<%=visit%> |
 |
<%
notice_rs.movenext
m=m+1
Loop
%>
<%
notice_rs.Close
set notice_rs=nothing
end if
'-------------------------------------------- 공지사항 끝부분 -------------------------------------------
%>
<% end if %>
<%
i=1
Do until rs.EOF or i>rs.pagesize
id=rs("id")
name=rs("name")
email=rs("email")
url=rs("url")
title=rs("title")
tag=rs("tag")
write_diff=rs("writeday")
writeday=left(rs("writeday"),8)
visit=rs("visit")
num=rs("num")
resame=rs("resame")
filename=rs("filename")
filesize=rs("filesize")
blank=4*resame
if filename="none" then
filename=""
filesize=""
end if
if num=0 then
num="--"
end if
if email="none" then
email=""
end if
if url="none" then
url=""
end if
if left(now,2)="20" then
nowday=mid(now,3)
else
nowday=now
end if
if tag="tag_ok" then
title=CheckWord(title)
if Len(title) > 38 then
title=mid(title,1,39)&".."
end if
name=CheckWord(name)
If Len(name) > 15 Then
name = Mid(name,1,16) & ".."
End If
else
if Len(title) > 30 then
title=mid(title,1,31)&".."
end if
title=replace(title,""","'")
If Len(name) > 4 Then
name = Mid(name,1,5) & ".."
End If
name=replace(name,""","'")
end if
if search<>"" then
if st = "on" then
title = replace(title,search,""&search&"")
end if
if sn = "on" then
name = replace(name,search,""&search&"")
end if
end if
%>
<% '---------- 코멘트 시작 --- %>
<%
com_SQL = "SELECT * FROM inno_comment where tb='"&tb&"' and com_num="&id
Set com_rs = Server.CreateObject("ADODB.Recordset")
com_rs.Open com_SQL,db,1
if rs.BOF or rs.EOF then
else
com_record = com_rs.RecordCount
end if
%>
<% '---------- 코멘트 끝 --- %>
| <%=num%> |
<% if resame<>0 then %>
<% if filename="" then %><% if DateDiff("d",write_diff,nowday) < newimg then %><% else %><% end if %><% else %><% if DateDiff("d",write_diff,nowday) < newimg then %> <%if tb=study_11 then %><%end if%> <% else %><% end if %><% end if %>  <%else%><% if filename="" then %><% if DateDiff("d",write_diff,nowday) < newimg then %><% else %><% end if %><% else %><% if DateDiff("d",write_diff,nowday) < newimg then %> <% if tb="study_11" then %>','<%=filename%>');> <%else%><% end if%> <% else %> <% if tb="study_11" then %>
','<%=filename%>');><% else %><% end if%> <% end if %><% end if %><% end if %> &search=<%=search%>&st=<%=st%>&sc=<%=sc%>&sn=<%=sn%><% end if %>"><%=title%><% if admin_comment="yes" then %><% if com_record<>0 then %>  (<%=com_record%>)<% end if %><% end if %> |
<% if email<>"" then %><% if admin_smtp<>"yes" then %><% else %><% if request("mode")="new" then %>&mode=new<% end if %><% if search<>"" then %>&search=<%=search%>&st=<%=st%>&sc=<%=sc%>&sn=<%=sn%><% end if %>"><% end if %><%=name%><% else %><%=name%><% end if %> |
<%=writeday%> |
<%=visit%> |
|
<%
rs.movenext
i=i+1
Loop
%>
 |
<% else %>
<% end if %> <% if admin_auth<>"yes" or session("login")=admin_name then %>
<% end if %>